home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / bcomp / config.scm < prev    next >
Text File  |  1995-10-13  |  732b  |  36 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4.  
  5. ; For DEFINE-STRUCTURE macro
  6.  
  7. (define (make-a-package opens-thunk accesses-thunk tower
  8.             dir clauses name)
  9.   (make-package opens-thunk accesses-thunk
  10.         #t    ;unstable
  11.         tower
  12.         dir
  13.         clauses
  14.         #f
  15.         name))
  16.  
  17. (define (loser . rest)
  18.   (error "init-defpackage! neglected"))
  19.  
  20. (define interface-of structure-interface)
  21.  
  22. (define *verify-later!* (lambda (thunk) #f))
  23.  
  24. (define (verify-later! thunk)
  25.   (*verify-later!* thunk))
  26.  
  27. (define (set-verify-later! proc)
  28.   (set! *verify-later!* proc))
  29.  
  30. (define (note-name! thing name)
  31.   (cond ((interface? thing)
  32.      (note-interface-name! thing name))
  33.     ((structure? thing)
  34.      (note-structure-name! thing name)))
  35.   thing)
  36.